function [U_11, U_12, U_21, U_22,...
          V_11, V_12, V_21, V_22,...
          Phi_11, Phi_12, Phi_21, Phi_22,...
          D, AvU21, AvV21]=load_function_CS(fp0)

filepath = fullfile( fp0, 'U_CS.mat' );
A=load(filepath);
U_11=A.U_11_CS;
U_12=A.U_12_CS;
U_21=A.U_21_CS;
U_22=A.U_22_CS;

filepath = fullfile( fp0, 'V_CS.mat' );
A=load(filepath);
V_11=A.V_11_CS;
V_12=A.V_12_CS;
V_21=A.V_21_CS;
V_22=A.V_22_CS;


filepath = fullfile( fp0, 'Phi_CS.mat' );
A=load(filepath);
Phi_11=A.Phi_11_CS;
Phi_12=A.Phi_12_CS;
Phi_21=A.Phi_21_CS;
Phi_22=A.Phi_22_CS;

filepath = fullfile( fp0, 'D_CS.mat' );
A=load(filepath);
D=A.D_CS;

filepath = fullfile( fp0, 'Av_CS.mat' );
A=load(filepath);
AvU21=A.AvU21_CS;
AvV21=A.AvV21_CS;
end